home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 316 / libsrc / dbgstr.s < prev    next >
Encoding:
Text File  |  1988-10-20  |  490 b   |  30 lines
  1. |
  2. | debug code: dbgstr(str);
  3. |
  4. .text
  5.     .even
  6. .globl    _dbgstr
  7. _dbgstr:
  8.     link    a6,#0        | nothing in frame
  9.     movel    a2,sp@-        | save a2
  10.     movel    a3,sp@-        | save a3
  11.     movel    a6@(8),a3    | get str ptr
  12. dbg1:
  13.     moveb    a3@+,d0        | get a byte
  14.     beq    dbg9
  15.     andl    #255,d0
  16.     movew    d0,sp@-        | push a byte
  17.     movew    #2,sp@-        | push dev 2
  18.     movew    #3,sp@-        | push Bconout
  19.     trap    #13
  20.     addl    #6,sp
  21.     bra    dbg1
  22. dbg9:
  23.     movel    sp@+,a3        | get a3 back
  24.     movel    sp@+,a2        | get a2 back
  25.     unlk    a6
  26.     rts
  27. |
  28. | that's all.
  29.  
  30.